0 REM "[185][185][185][185]FLEXI SLIDESHOW[185][185][185][185]"
1 :
4 :    REM..LIST 10000 FOR CREDITS
5 :
9 IFFL=1THEN310
10 POKE2,1:POKE53281,0:POKE53280,11:PRINT""
11 IFA=0ANDYS=0THENGOSUB1000
12 IFYS=2THENGOTO15
13 YS=2:LOAD"HIRES.DMP$CC00.3",8,1
15 IFA=0THEN POKE55,0:POKE56,92:CLR:DIMA$(20):AU=0
20 RESTORE
25 C=11:REM BORDER COLOR
30 IFA=0THENA=1:GOSUB500
40 GOSUB700
198 IFPEEK(197)=49THENAU=0:REM KEYBRD             MATRIX VALUE OF '*'(AUTO OFF)
199 IFAU=1THENFORTT=1TO50:NEXTTT:I=I+1:GOTO250:REM AUTO MODE
200 POKE198,0:WAIT198,1:GETB$
201 IFB$="^"THENAU=1:GOTO199:REM                    '^' SWITCHES AUTO MODE ON
202 IFB$="[134]"THENC=C-1:POKE53280,C:IFC=0THENC=15:REM  F3 PREVIOUS BORDER COLOR
203 IFB$="[135]"THENC=C+1:POKE53280,C:IFC=15THENC=0:REM  F5 NEXT BORDER COLOR
205 IFB$="[139]"THENSYS52224:GOTO200:REM                 F6 1525 M/L SCREEN DUMP
206 IFB$="1"THENPOKE2,1:REM                          1 FOR SINGLE-SIZE DUMP
207 IFB$="2"THENPOKE2,2:REM                          2 FOR DOUBLE-SIZE DUMP
210 IFB$="[140]"THENI=I+1:GOTO250:REM                    F8 NEXT SCREEN W/O MENU
215 IFB$="[196]"THENGOSUB500:GOSUB700:REM                SHIFT-D FOR NEW DISK
220 IFB$="[133]"THEN270:REM                              F1 TOGGLE TO MENU
230 IFB$<"A"ORB$>"Q"THEN200
240 I=ASC(B$)-64
250 IFI>17THENI=1
260 F$="FD"+A$(I)
265 IFF$="FD--------------"THEN198
270 POKE53265,59:POKE53272,120
280 POKE56576,PEEK(56576)AND254
290 FL=0:IFB$<>"[133]"THENFL=1:LOAD F$,8,1
310 IFAU=1THENGOTO198
320 GETT$:IFT$=""THEN320
325 IFT$<>"[133]"THENB$=T$:T$="":GOTO201
329 GOSUB330:GOTO360
330 POKE53265,27:POKE53272,21
340 POKE56576,PEEK(56576)OR1:RETURN
360 GOTO200
500 GOSUB330:PRINTFRE(0);"[147] INSERT PICTURE DISK AND PRESS ANY KEY."
501 POKE198,0:WAIT198,1:GETA$
502 PRINT"    PLEASE WAIT. READING DIRECTORY."
504 FORD=1TO17:A$(D)="--------------":NEXT
505 OPEN2,8,0,"$0:FD*":GET#2,A$,A$:D=-1:GOTO527
510 GET#2,A$:IFST<>0THENCLOSE2:I=0:RETURN
515 IFA$<>CHR$(34)THEN510
517 A$(D)=""
520 GET#2,A$,A$:REM CANCEL 'FD'
525 GET#2,A$:IFA$<>CHR$(34)THENA$(D)=A$(D)+A$:GOTO525
526 GET#2,A$:IFA$<>""THEN526
527 GET#2,A$,A$,A$,A$
530 D=D+1:GOTO510
700 PRINT"[147][142][154]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
701 PRINT"[154] [176][179][158] FLEXISLIDESHOW [146][154][171][192][192][179][129]W.SCHMIDT/R.W[154][171][192][174]"
710 PRINT"[154] [194][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [194]"
720 PRINT" [221] A[146] "A$(1)TAB(21)"I[146] "A$(9)TAB(38)"[154][221]"
730 PRINT" [221] B[146] "A$(2)TAB(21)"J[146] "A$(10)TAB(38)"[154][221]"
740 PRINT" [221] C[146] "A$(3)TAB(21)"K[146] "A$(11)TAB(38)"[154][221]"
750 PRINT" [221] D[146] "A$(4)TAB(21)"L[146] "A$(12)TAB(38)"[154][221]"
760 PRINT" [221] E[146] "A$(5)TAB(21)"M[146] "A$(13)TAB(38)"[154][221]"
770 PRINT" [221] F[146] "A$(6)TAB(21)"N[146] "A$(14)TAB(38)"[154][221]"
780 PRINT" [221] G[146] "A$(7)TAB(21)"O[146] "A$(15)TAB(38)"[154][221]"
790 PRINT" [221] H[146] "A$(8)TAB(21)"P[146] "A$(16)TAB(38)"[154][221]"
795 PRINT" [221]"TAB(12)"Q[146] "A$(17)TAB(38)"[154][221]"
797 PRINT" [173][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][189]"
798 PRINT"   [192][192][192][192][192][192][179]SHIFT-D FOR NEW DISK[154][171][192][192][192][192][192][192]
799 [143]    PRINT"  FOR CONTINUOUS     FROM MENU,SELECT
800 REM    PRINT"  VIEW OF SCREENS [158]OR[146][129] LETTER[154] TO LOAD &
801 [143]    PRINT"  LOADING, USE FORF8WAITCONT    VIEW EACH DOODLE
802 REM    PRINT"  [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]    [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][154]
803 [153]" ORTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTAN^
820 PRINT" [221] PRESS [129]F1[146]  TO TOGGLE TO & FROM MENU[154] [221]"
821 PRINT" [221]  ... [129]A[146]TO[129]Q[146] TO SELECT LOAD & VIEW   [154] [221]"
822 PRINT" [221]  ...  [129]F8[146]  TO LOAD NEXT SCREEN     [154] [221]"
823 PRINT" [221]  ...  [129] ^  TO START AUTO SEQ. LOAD [154] [221]"
824 PRINT" [221]  ...  [129] *  & HOLD[146] TO STOP AUTO LOAD[154] [221]"
825 PRINT" [221]  ...  [129]F3[146]  TO CHANGE BORDER COLOR(-)[154][221]"
826 PRINT" [221]  ...  [129]F5[146]  TO CHANGE BORDER COLOR(+)[154][221]"
827 PRINT" [221]  ...  [129]F6[146]  FOR 1525 M/L BIT-MAP DUMP[154][221]"
828 PRINT" [221]  ... [129]1[146]OR[129]2[146]    (SINGLE/DOUBLE-SIZE)  [154][221]"
830 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
835 RETURN
998 :------------------------
999 REM CHOICE FOR LOADING                      1525 M/L BIT-MAP DUMP
1000 YS=0:PRINT"[147] WOULD YOU LIKE TO LOAD THE HIRES DUMP                   (Y/N)?"
1010 GETYS$:IFYS$=""THEN1010
1020 IFYS$="N"THENYS=2:RETURN
1030 IFYS$="Y"THENYS=1:PRINT"[147] LOADING...":RETURN
1040 GOTO1010
1050 :-----------------------
10000 :    REM"[184][184][184][184][184][184]CREDITS[184][184][184][184][184][184][184][184]"
10010 :    REM MENU SELECT DEMO (RGW)
10020 :    REM RICHARD G. WILMOTH             :        NEWPORT NEWS,VA
10030 :    REM SUBSTANTIAL FUNCTIONAL &       :        COSMETIC ENHANCEMENTS BY
10039 :    REM WAYNE R. SCHMIDT,NYC
10040 :    REM DIRECTORY READ ROUTINE
10045 :    REM     WRITTEN BY...
10050 :    REM *** ANTHONY MANSO ***